﻿<!--#include file="../../../../../popasp/lasp.asp" -->
<%
	on error resume next
	Dim POP_MVC,tpl,pasp
	set POP_MVC = new POPASP_MVC
	set pasp = POP_MVC
	POP_MVC.mvc_dir = "../../popasp/"
	call POP_MVC.init
	POP_MVC.dG_("startTime") = 57924.93
	POP_MVC.dG_("beginTime") = beginTime__
	
	call G_("initTime")
	
	set tpl = D_
	IF Not isEmpty ( session( "./home/Assign/listBooks_where" ) ) Then 
		If session("./home/Assign/listBooks_where") = 1 Then 
			set tpl= js_decode(session("./home/Assign/listBooks"))
		Else 
			set tpl = js_decode( POP_MVC.file_get_contents(session("./home/Assign/listBooks")) )
		End If 
	End If
	call G_("loadTime")
	
	Function getMemory( key )
		getMemory = Application.Contents( "D:\asp\easyasp\test2\xls2__" & key )
	End Function
%>
<h1><% Response.Write "Assign/listBooks.html" %>模板</h1>
<hr />
<a href="/xls2/index.asp?c=Assign&a=listBooks">显示所有工作簿</a>
<hr />
<%  dim key %>
<table border="1" cellspacing="1">
<tr>
<th>工作簿</th>
<th>操作</th>
</tr>
<% 
tpl("_total") = 0
If isArray(tpl("list")) Then 
tpl("_total") = UBound(tpl("list")) + 1
Else
Select Case typename( tpl("list") )
  Case "Dictionary","Files","IVariantDictionary","IRequestDictionary" : tpl("_total") = tpl("list").Count
  Case "Recordset" : tpl("_total") = tpl("list").RecordCount
  Case "ISessionObject" : tpl("_total") = tpl("list").Contents.Count
End Select
End If
tpl("_rownum") = 0
If tpl("_total") >0 Then
For Each key In tpl("list") : If isObject( tpl("list")(key) ) Then Set tpl("item") = tpl("list")(key) Else tpl("item") = tpl("list")(key)
If tpl("_rownum") = 0 Then tpl("_first") = True Else tpl("_first") = False
tpl("_rownum") = tpl("_rownum") + 1
tpl("_index") = tpl("_rownum") - 1
If tpl("_total") <> 0 AND tpl("_total") = tpl("_rownum") Then tpl("_last") = True Else tpl("_last") = False 
If tpl("_total") < tpl("_rownum") Then tpl("_total") = tpl("_rownum")
%>
	<tr>
		<td><%  If tpl.Exists("item") Then Response.Write tpl("item") End If %></td>
		<td align="center">
		<% If session("assignedBook") = tpl("item") Then %>
		正在使用
		|
		<a href="/xls2/index.asp?c=Assign&a=listSheets">列出工作表</a>
		<%  Else  %>
		<a href="/xls2/index.asp?c=Assign&a=assignBook&book=<%  If tpl.Exists("item") Then Response.Write tpl("item") End If %>">使用</a>
		<%  End If  %>
		</td>
	</tr>
<%  Next 
End If  %>
</table>
<div>
<hr />
<h3>性能说明</h3>
<p>POPASP框架为了开发更快捷，内置了一套模板引擎，使用起来非常灵活，但因为使用了Server.execute而性能有所下降，可以发现耗时有点长。</p>
<p>
为了提升性能，你可以这样做：<br />
网站上线后，可以修改配置参数来提升性能，包括： <br />
将类文件存储到appliction中。<code>'APPLICATION_ON : "1"</code> <br />
关闭调试模式。<code>'APP_DEBUG : "0"</code><br />
页面静态缓存。<code>'TMPL_CACHING : "1"</code>
关闭页面trace显示。<code>''SHOW_PAGE_TRACE : "0"</code>
</p>
<p style="color:red">
告诉大家一个好消息，POPASP1.6版本将支持Taihom模板引擎，它也是一个非常强大的模板引擎，但是实现原理跟POPASP内置的模板引擎不尽相同，它没有使用 Server.Execute ，而使用的是dom解析与标签替换的原理，速度更快，目前已经内置到POPASP中了，正在进行测试工作……
</p>
</div>
<!--#include file="../../../../../popasp/tpl/poplite_end.inc.txt" -->